home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / AJC-BOB-PASTER.AMOS / AJC-BOB-PASTER.amosSourceCode
AMOS Source Code  |  1992-02-26  |  813b  |  47 lines
  1. '
  2. ' "BOB PASTER" 
  3. ' By Andrew Campbell 
  4. '
  5. ' This program allows you to paste bobs onto the screen using the mouse. 
  6. ' Run it for an instant example (some nice colourful bobs to play with!) 
  7. '
  8. ' LEFT MOUSE  = Paste bob  
  9. ' RIGHT MOUSE = Next bob 
  10. '
  11. ' Quit the program and enter direct mode to save the results 
  12. ' if you wish. Have fun! 
  13. '
  14. '
  15. Screen Open 0,320,200,32,Lowres
  16. Curs Off : Flash Off : Cls 0
  17.  
  18. F$=Fsel$("AJC Contributions:AMOS SOURCE/BOBS/","","")
  19. If F$<>"" : Load F$ : Else Edit : End If 
  20. Get Bob Palette 
  21. Cls 0
  22. Hide On 
  23.  
  24. B=1
  25.  
  26. Do 
  27.  
  28. Repeat 
  29.  X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  30.  Wait Vbl 
  31.  Bob 1,X,Y,B
  32. Until Mouse Key
  33.  
  34.  If Mouse Key=1
  35.   Wait Vbl 
  36.   Bob Off 1
  37.   Wait Vbl 
  38.   Paste Bob X,Y,B
  39.  End If 
  40.  
  41.  If Mouse Key=2
  42.   Inc B
  43.   If B>Length(1) : B=1 : End If 
  44.   Repeat : Until Mouse Key=0
  45.  End If 
  46.  
  47. Loop